Private Casting/Casting One.mdf/Docs/Shop/wands.dir/Internal_30.ls

Text File | 1998-02-21 | 418 b | 20 lines

on mouseEnter
  cursor([cast "curs", cast "mask"])
end

on mouseLeave
  cursor(-1)
end

on mouseDown
  repeat while the mouseDown
    if (the scrollTop of member the castNum of sprite 17 + 50) < the height of member the castNum of sprite 17 then
      set the scrollTop of member the castNum of sprite 17 to the scrollTop of member the castNum of sprite 17 + 2
    end if
  end repeat
end

on mouseUp
  cursor(-1)
end